home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / amised / scripts / amigaguide.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-19  |  497b  |  22 lines
  1. /* Switch to AmigaGuide Macro */
  2.  
  3. options results
  4. if address()="REXX" then
  5.    address 'AMISPORT.1'
  6.  
  7. 'Cursup TOP'
  8. 'GetLine'
  9. if upper(left(result,9))~="@DATABASE" then
  10. do
  11.   'Request BODY="This does not look like an|AmigaGuide database, do you want|to convert it ?" BUTTON="¶_Yes|_No|_Cancel"'
  12.   if result=1 then
  13.   do
  14.     'Insert TEXT="@Database¶¶@node MAIN¶¶"'
  15.     'Cursdown BOTTOM'
  16.     'Insert TEXT="¶¶@endnode¶¶"'
  17.     'Cursup TOP'
  18.   end
  19.   else if result=3 then exit
  20. end
  21. 'Viewer NAME="AmigaGuide"'
  22.